program Student;

uses
  Forms,
  Windows,
  TntForms,
  uTexts in 'uTexts.pas',
  MainUnit in 'MainUnit.pas' {StudentMainForm: TTntForm};

{$R *.res}

var
  window: THandle;

begin
  window := FindWindow(nil, 'Golden Temp Student');
  if window <> 0 then
  begin
    if IsIconic(window) then
      ShowWindow(window, SW_SHOWNORMAL)
    else
      SetForegroundWindow(window);
    Exit;
  end;

  Application.Initialize;
  Application.Title := 'Golden Temp Student';
  Application.HelpFile := 'GoldenTemp.chm';
  Application.CreateForm(TStudentMainForm, StudentMainForm);
  Application.Run;
end.
